home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 February / PCWorld_2006-02_cd.bin / software / vyzkuste / tnt / tnt.exe / {app} / plugins / Taskbar Button Grouping.ttp < prev    next >
INI File  |  2005-03-15  |  2KB  |  68 lines
  1. [SETTINGS]
  2. category=Windows Tweaks::Start Menu and Taskbar::Button Grouping
  3. Caption=Taskbar Button Grouping
  4. version=1.0
  5. OSVERSION=XP,2003
  6. #=When a lot of windows are opened, XP groups their taskbar buttons together to prevent clutter. For example, if there are three Explorer windows open, there will be only one button of Explorer on taskar.
  7. #=\nIf option 1 is set, XP groups least frequently used applications first, and groups more frequently used applications as necessary.
  8. #=\nIf option 2 is set, XP groups applications that have the most open windows first, and groups applications with fewer open windows only as necessary.
  9. #=\nif option 3 is set, XP groups applications that have at least 'N' windows open on the desktop. You can set 'N' using the text box under it.
  10. #=\n\nNote:The first and second option tells Windows to use grouping only when the space on the taskbar is getting short. So if there is enough space in the taskbar to display all Windows, no grouping will be done.
  11. #= Option three tells Windows to always use grouping even if there is space to display all windows.
  12.  
  13. Author=
  14. optionexplicit=0
  15.  
  16. [INTERFACE]
  17. TYPE=multi
  18. Text0=Group least used applications first (default)
  19. TYPE0=radio
  20. Text1=Group applications with the most windows first
  21. TYPE1=radio
  22. Text2=Group any application with at least N windows
  23. TYPE2=radio
  24. Text3=N (see option 3)
  25. TYPE3=spin
  26. style3=2,99
  27.  
  28.  
  29. [SCRIPT]
  30. Dim strkey
  31. strkey="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\TaskbarGroupSize"
  32.  
  33. Sub OnInit() 
  34. Dim i
  35.  i=RegReadValue(strkey)
  36.  if i=0 then CheckItem 0,true
  37.  if i=1 then CheckItem 1,true
  38.  if i >= 2 then 
  39.   CheckItem 2,true
  40.   SetItemText 3, i
  41. end if
  42. OnEvent 0,0
  43. End Sub
  44.  
  45. Sub OnApply(x,y)
  46. Dim i
  47.  if IsItemChecked(0)=true then
  48.     i=0
  49.  elseif IsItemChecked(1)=true then
  50.     i=1
  51.  elseif IsItemChecked(2)=true then
  52.     i=GetItemText(3)
  53.     if isEmpty(i) then i = 2
  54.  end if
  55.  RegWriteValue strkey,i,2
  56.  Logoff
  57.  
  58. End Sub
  59.  
  60. Sub OnEvent(x,y)
  61.  
  62. if IsItemChecked(2)=true then
  63. EnableItem 3, true
  64. else
  65. EnableItem 3, false
  66. end if
  67.  
  68. End Sub